home *** CD-ROM | disk | FTP | other *** search
/ Collection of Tools & Utilities / Collection of Tools and Utilities.iso / batchut / stnvjw23.zip / SETV1P.BAT < prev   
DOS Batch File  |  1993-03-14  |  4KB  |  184 lines
  1. rem    settest.bat
  2. rem    for testing Setenv.Com
  3. rem    setenv prompt 1.p
  4. rem    environment space
  5. set
  6. rem    missing delimiter
  7. rem    enter carriage return
  8. setenv name %%prompt %%def#test
  9. if errorlevel 6 goto a0
  10. goto error
  11. :a0
  12. rem    answer    name=%name%=
  13. rem    prompt message
  14. rem    enter 'p'
  15. setenv name %%prompt Data 
  16. if errorlevel 5 goto b1
  17. if errorlevel 2 goto b1
  18. goto error
  19. :b1
  20. rem    answer    p    name=%name%=
  21. rem    setenv version 1.1 and greater
  22. rem    prompt and  noecho
  23. rem    enter 'e'
  24. setenv name %%prompt %%noecho Data 
  25. if errorlevel 5 goto b2
  26. if errorlevel 2 goto b2
  27. goto error
  28. :b2
  29. rem    answer    e    name=%name%
  30. rem    setenv version 1.3 and greater
  31. rem    prompt and upper case
  32. rem    enter 'u'
  33. setenv name %%prompt %%upper Data 
  34. if errorlevel 5 goto b3
  35. if errorlevel 2 goto b3
  36. goto error
  37. :b3
  38. rem    answer    U    name=%name%
  39. rem    setenv version 1.9 and greater
  40. rem    prompt and lower case
  41. rem    enter 'L'
  42. setenv name %%prompt %%lower Data 
  43. if errorlevel 5 goto b4
  44. if errorlevel 2 goto b4
  45. goto error
  46. :b4
  47. rem    answer    l    name=%name%
  48. rem    prompt and default value
  49. rem    enter carriage return
  50. setenv name %%prompt %%def#test# Data 
  51. if errorlevel 5 goto b5
  52. if errorlevel 3 goto b5
  53. goto error
  54. :b5
  55. rem    answer    test    name=%name%
  56. rem    setenv version 1.5 and greater
  57. rem    prompt and time out no default
  58. rem    enter "let time out"
  59. setenv name %%prompt %%timo=04 Data 
  60. if errorlevel 2 goto b6
  61. goto error
  62. :b6
  63. rem    answer    name=%name%
  64. rem    setenv version 1.5 and greater
  65. rem    prompt and time out with default
  66. rem    enter "let time out"
  67. setenv name %%prompt %%def#test# %%timo=04 Data 
  68. if errorlevel 3 goto b7
  69. goto error
  70. :b7
  71. rem    answer    test    name=%name%
  72. rem    setenv version 1.5 and greater
  73. rem    time out with default with defaut
  74. rem    enter "let time out"
  75. setenv name %%prompt %%def#test# %%timo=04 Data 
  76. if errorlevel 5 goto b8
  77. goto error
  78. :b8
  79. rem    answer    test    name=%name%
  80. rem    setenv version 1.9 and greater
  81. rem    trim leading and trailling spaces
  82. rem    enter '  xx  xx  '
  83. setenv name %%prompt %%trim Data 
  84. if errorlevel 5 goto b9
  85. goto error
  86. :b9
  87. rem    answer    'xx  xx'    name=%name%
  88. rem    order test 1
  89. rem    enter xx
  90. setenv name %%prompt %%noecho %%upper %%def#test# Data 
  91. if errorlevel 5 goto d0
  92. goto error
  93. :d0
  94. rem    answer    XX    name=%name%
  95. rem    order test 2
  96. rem    enter xx
  97. setenv name %%prompt %%upper %%noecho %%def#test# Data 
  98. if errorlevel 5 goto d1
  99. goto error
  100. :d1
  101. rem    answer    XX    name=%name%
  102. rem    order test 3
  103. rem    enter xx
  104. setenv name %%prompt %%def#test# %%noecho %%upper Data 
  105. if errorlevel 5 goto d2
  106. goto error
  107. :d2
  108. rem    answer    XX    name=%name%
  109. rem    order test 4
  110. rem    enter xx
  111. setenv name %%prompt %%def#test# %%noecho %%upper %%timo=4 Data 
  112. if errorlevel 5 goto d3
  113. goto error
  114. :d3
  115. rem    answer    XX    name=%name%
  116. rem    order test 5
  117. rem    enter xx
  118. setenv name %%prompt %%timo=4 %%def#test# %%noecho %%upper Data 
  119. if errorlevel 5 goto d4
  120. goto error
  121. :d4
  122. rem    answer    XX    name=%name%
  123. rem    readkey
  124. rem    enter "let time out"
  125. setenv name %%prompt %%timo=4 %%readkey def#y# Answer (y/n)  
  126. if errorlevel 5 goto d5
  127. goto error
  128. :d5
  129. rem    answer    y    name=%name%
  130. :endtest
  131. rem    cleanup
  132. setenv name
  133. rem    End of Test.
  134. goto fini
  135. :error
  136. echo An error occured.
  137. if errorlevel 10 goto full
  138. if errorlevel 9 goto offset
  139. if errorlevel 8 goto not
  140. if errorlevel 7 goto numb
  141. if errorlevel 6 goto del
  142. if errorlevel 5 goto update
  143. if errorlevel 4 goto dos
  144. if errorlevel 3 goto create
  145. if errorlevel 2 goto erase
  146. if errorlevel 1 goto root
  147. if errorlevel 0 goto help
  148. echo no errorlevel status
  149. goto fini
  150. :full
  151. echo environment space is full.
  152. goto fini
  153. :offset
  154. echo offset not valid.
  155. goto fini
  156. :not
  157. echo environment variable not found.
  158. goto fini
  159. :numb
  160. echo not a valid argument.
  161. goto fini
  162. :del
  163. echo unmatched delimiter.
  164. goto fini
  165. :update
  166. echo environment variable updated.
  167. goto fini
  168. :dos
  169. echo don't know about MS-DOS V1.x
  170. goto fini
  171. :create
  172. echo environment variable created.
  173. goto fini
  174. :erase
  175. echo environment variable erased.
  176. goto fini
  177. :root
  178. echo root environment set.
  179. goto fini
  180. :help
  181. echo no command, help issued.
  182. goto fini
  183. :fini
  184.